home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_20171_TWOldFindCSTR < prev    next >
Text File  |  1994-09-21  |  370b  |  13 lines
  1. global thetext,Bname
  2. put short name of this stack into Bname
  3. initwindow wn
  4. get getSFPath() & wn
  5. set saveFileName of window wn to it
  6. get getAlertMsg(wn)
  7. set saveAlertMessage of window wn to it
  8. send readSavedFile to window wn
  9. get alternateText of window wn
  10. set name of window wn to line 1 of it
  11. put line 1 of it into wn
  12. set dataDirty of window wn to false
  13. finishwindow wn